home *** CD-ROM | disk | FTP | other *** search
/ Aminet 24 / Aminet 24 (1998)(GTI - Schatztruhe)[!][Apr 1998].iso / Aminet / dev / mui / mui38dev_bb2.lha / EFMUILib / Examples / EFShowHide.asc < prev   
Text File  |  1998-02-03  |  2KB  |  68 lines
  1. ;ShowHide example
  2. ;(c)1992/93, Stefan Stuntz
  3. ;Blitz basic 2 version (c)1997/98 by VIVID Imagination
  4.  
  5. WBStartup
  6.  
  7. MUIApplicationTitle        "ShowHide"
  8. MUIApplicationVersion      "$VER: ShowHide 19.5 (12.02.97)"
  9. MUIApplicationCopyright    "(c)1992/93, Stefan Stuntz"
  10. MUIApplicationAuthor       "Stefan Stuntz"
  11. MUIApplicationDescription  "Show object hiding."
  12. MUIApplicationBase         "SHOWHIDE"
  13.  
  14. MUICheckMark 1,1
  15. MUICheckMark 2,1
  16. MUICheckMark 3,1
  17. MUICheckMark 4,1
  18. MUICheckMark 5,1
  19.  
  20. MUIAddObjsHGroup 0,1,2,3,4,5
  21. MUIAddTags 0,#MUIA_Weight,0
  22. MUICreateHGroup 0
  23.  
  24. MUISimpleButton 11,"Button 1"
  25. MUISimpleButton 12,"Button 2"
  26. MUISimpleButton 13,"Button 3"
  27. MUISimpleButton 14,"Button 4"
  28. MUISimpleButton 15,"Button 5"
  29. MUIVSpace 16,0
  30.  
  31. MUIAddObjsVGroup 10,11,12,13,14,15,16
  32. MUICreateVGroup 10
  33.  
  34. MUIAddObjsVGroup 6,0,10
  35. MUIAddTags 6,#MUIA_Frame,#MUIV_Frame_Group
  36. MUICreateVGroup 6
  37.  
  38. MUIAddObjHGroup 7,6
  39. MUICreateHGroup 7
  40.  
  41. MUICreateWindow 8,"Show & Hide","SHHD",7
  42.  
  43. MUIAddSubWindow 8
  44.  
  45. If MUICreateApplication<>True
  46.   End
  47. EndIf
  48.  
  49. MUINotifyApp 8,#MUIA_Window_CloseRequest,1,#MUIV_Application_ReturnID_Quit
  50.  
  51. MUINotify 1,#MUIA_Selected,#MUIV_EveryTime,11,#MUIM_Set,#MUIA_ShowMe,#MUIV_TriggerValue
  52. MUINotify 2,#MUIA_Selected,#MUIV_EveryTime,12,#MUIM_Set,#MUIA_ShowMe,#MUIV_TriggerValue
  53. MUINotify 3,#MUIA_Selected,#MUIV_EveryTime,13,#MUIM_Set,#MUIA_ShowMe,#MUIV_TriggerValue
  54. MUINotify 4,#MUIA_Selected,#MUIV_EveryTime,14,#MUIM_Set,#MUIA_ShowMe,#MUIV_TriggerValue
  55. MUINotify 5,#MUIA_Selected,#MUIV_EveryTime,15,#MUIM_Set,#MUIA_ShowMe,#MUIV_TriggerValue
  56.  
  57. MUISet 3,#MUIA_Selected,False
  58.  
  59. MUIOpenWindow 8
  60.  
  61. Repeat
  62.   ev.l=MUIWaitEvent
  63. Until ev=#MUIV_Application_ReturnID_Quit
  64.  
  65. MUICloseWindow 8
  66.  
  67. End
  68.